DO BOXT WITH 8,1,'DESCRIPTION : '+ALLTRIM(NAME)+'  '+ALLTRIM(TIPE)+'  '+ALLTRIM(QANT)+' '+ALLTRIM(UNIT)+'('+ALLTRIM(KODE)+')','GR+','B',.F.,.F.
   DO CASE
      CASE RAT>1 .AND. (RIGHT(SEL,1)='X' .OR. RIGHT(SEL,1)='S')
         DO BOXT WITH 10,1,"PACKAGING : "+BUY+' of '+NRAT+' '+SEL+'ES','W+','B',.F.,.F.
      CASE RAT>1 .AND. RIGHT(SEL,1)<>'X' .AND. RIGHT(SEL,1)<>'S'
         DO BOXT WITH 10,1,"PACKAGING : "+BUY+' of '+NRAT+' '+SEL+'S','W+','B',.F.,.F.
      OTHER
         DO BOXT WITH 10,1,"PACKAGING : "+BUY+' of '+NRAT+' '+SEL,'W+','B',.F.,.F.
   ENDCASE
